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Vv P=19 DRIVER. SRCICRDORIVER.MAR; 1 ) 
¢ F 6685 -BYTE “A/\/ 3 247 =*KF7?) = 0367 
¢ 0 6 § -BYTE “A/\/ 3 3 “xF “03/6 
C ee -BYTE “A/\/ : 24 “xF “0371 
¢ § 6 8 -BYTE “A/\/ 3 250 “KFA °057 
¢ 6 a te *A/N\/ ; 2) “XFB 3 =*037 
C 4 2 0 -BYT *A/\/ 3 § “KFC *0374 
C 5 91 ~BYTE “*A/\/ ; 25 “XFD “0375 
C 8 $36 -BYTE “A/\/ $425 “HE °OS7 
C 69 ~BYTE “A/\/ $d33 “SF "O37 
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a .SBTTL (R11 FUNCTION DECISION TABLE 
: CR11 FUNCTION DECISION TABLE 


s) 


CR_FUNCTABLE : FUNCTION DECISION TABLE 
FUNCTAB ,= LEGAL FUNCTION 
<READLBLK, = READ LOGICAL BLOCK 
READPBLK, = READ PHYSICAL BLOCK 
READVBLK -= READ VIRTUAL BLOCK 
SENSEMODE ,- SENSE READ MODE 
SENSE CHAR, = SENSE READER CHARACTERISTICS 
SETMODE , = SET READER MODE 
 SETCHAR, = SET READER CHARACTERISTICS 
FUNCTAB ,= BUFFERED 1/0 FUNCTIONS 
<READLBLK,- READ LOGICAL BLOCK 
READPBLK,= READ PHYSICAL BLOCK 
READVBLK = READ VIRTUAL BLOCK 
SENSEMODE , = SENSE READ MODE 
SENSECHAR, = SENSE READER CHARACTERISTICS 
SE TMODE ,= SET READE 
 SETCHAR, - ;SET READER CHARACTERISTICS 
FUNCTAB CR_READ,= READ FUNCTIONS 
<READLBLK , = sREAD LOGICAL BLOCK 
READPBLK,- READ PHYSICAL BLOCK 
,READVBLK, = READ VIRTUAL BLOCK 
FUNCTAB +EXES$SETMODE ,- SET MODE/CHARACTERISTICS FUNCTIONS 
<SETCHAR,~ SET READER CHARACTERISTICS 
, SETMODE ,- SET READER MODE 
FUNCTAB *EXESSENSEMODE ,- SENSE MODE/CHARACTERISTICS FUNCTIONS 
<SENSE CHAR, = SENSE READER CHARACTERISTICS 
_ SENSERODE ,~ ;SENSE READER MODE 
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ON CHANNEL am St 83:49:98 DRIVER. SRCICRORIVER.MAR; 1 et 
4 ; sad -SBTTL CANCEL 1/0 ON CHANNEL 
, 5 } CRCANCELIO = CANCEL 1/0 ON CHANNEL 
7 $ : THIS ROUTINE IS CALLED WHEN THE LAST CHANNEL ASSIGNED TO A DEVICE IS DEASSIGNED, 
4 g i 3 i bevice IS DEALLOCATED, AND WHEN THE CANCEL 1/0 ON CHANNEL SYSTEM SERVICE IS 
740 : 
ee) 3; INPUTS: 
reg : R2 = NEGATIVE CHANNEL NUMBER 
744 : RS = DDRESS OF CURRENT 1/0 REQUEST PACKET. 
745 : R4 = CURRENT PROCESS PCB ADDRESS. 
248 ; RS = DEVICE UCB ADDRESS. 
748 : OUTPUTS: 
750 ; THE DEVICE INDEPENDENT CANCEL 1/0 ROUTINE IS CALLED AND A CHECK IS MADE 
231 ; O SEE IF THE UCB REFERENCE COUNT IS ZERO. IF THE REFERENCE COUNT IS ZERO, 
138 : THEN THE MESSAGE SENT TO JOB CONTROLLER BIT IS CLEARED. 
754° 
755 CR_CANCELIO: CANCEL 1/0 ON CHANNEL 
736 TSTW © UCBSW_REFC(RS) ;REF ERENCE COUNT ZERO? 
75 BNEQ 108 
758 BICw  #UCBSM_JOB UCBs DEvstschs ) WELEAR MESSAGE SENT BIT 
759 10$: JMP G*IOCSCANCEL! ANCEL 1/0 ON CHANNEL 
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L READ FUNCTION PROCESSING 


3¢ 
; CRLREAD = READ FUNCTION PROCESSING 


REA 
ON P 
761 
166 
be 
78 765 : THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISP PATCHER TO PROCESS 
A 706 3 A READ LOGICAL, READ PHYSICAL, OR READ VIRTUAL FUNCTION TO A CARD READER. 
28 768 : INPUTS: 
78 $3 ; RO = SCRATCH. 
78 «771: Ri = SCRATCH. 
78 ak : R2 = SCRATCH. 
78 «773: RS = ADDRESS OF 1/0 REQUEST PACKET. 
78 «774: R4 = CURRENT PROCESS PCB ADDRESS. 
78 «775: RS = ASSIGNED DEVICE UCB ADDRESS. 
78 176 ; R6 = ADDRESS OF CCB. 
78 «777: R7? = 1/0 FUNCTION CODE. 
78 78 ; Rg = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
0 78 «779: R9 = SCRATCH. 
78 «40780: R10 = SCRATCH. 
78 «781: Rl, = SCRATCH. 
28 f g ; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 
78 , 4 + OUTPUTS: 
, 78? 6 ; THE FUNCTION PARAMETERS ARE CHECKED AND A BUFFER IS ALLOCATED FOR THE 
78 ? ri CARD READER DRIVER TO READ A CARD IMAGE INTO. 
78 «789° 
78 790 CR_READ: ;READ FUNCTION PROCESSING 
78 791 MOVL P1(AP),RO [GET ADDRESS OF USER BUFFER 
5 6d MOVZWL P2(AP),R1 ;CGET LENGTH OF USER BUFF 
79 BEQL 308 SIF EQL ZERO LENGTH TRANSFER 
4 79% J$8 G*EXESREADCHK :CHECK ACCESSIBILITY OF USER BUFFER 
A 795 MOVW RPS gRCnT (RS) SINSERT LENGTH OF USER BUFFER 
gc 79 PUSHR Sale i SAVE BUFFER AND 1/0 PACKET ADDRESSES 
79 MOVZBL #80,R set LENGTH REQUIRED FOR ASCII] READ 
94 798 BBC a FUNC(R3) ,1 IF CLR, ASCII READ 
99 «7? MULL ; e :SEf LENGTH REQUIRED FOR BINA 
00 108: CMP «= sR} 1 IRPSW_BCNT(R3) [LENGTH OF READ LARGER THAN USER TEUr FER? 
1 BGEQu 208 [IF GEQU YES 
; MOVW  R1, IRP$W_BCNT(R3) [SET LENGTH OF USER BUFFER TO SIZE OF READ 
20$: ADDL #12,R1 TACCOUNT FOR BUFFER OVERHEAD 
04 J$B G*EXESBUF FRQUOTA [CHECK IF PROCESS HAS SUFFICIENT QUOTA 
AF 5 BLBC 0,4 [IF LBC QUOTA CHECK FAILURE 
: 6 JSB G*E XE SALLOCBUF SALLOCATE BUFFER FOR CARD READ 
8 BLBC 0,4 [IF LBC ALLOCATION FAIL 
BB 8 POPR #*M<R RETRIEVE BUFFER AND 1/0 PACKET ADDRESSES 
BD MOVL R rinse SVAPT E(R3) TINSERT ADDRESS OF READ B 
C1 10 MOV TAR P$W~BOFF (R3) SINSERT NUMBER OF QUOTA BYTES CHARGED 
C3 11 PUSHL [SAVE BUFFER ADDRESS 
C 1 MOVL Peas qin (R4),RO [GET JIB ADDRESS 
C 1 SUBL JIG$L_BYTCNT (RO) ;CHARGE PROCESS FOR BUFFER 
D 14 POPL TRESTORE BUFFER ADDRESS 
D 15 MOVAB i (2), (R2)+ [INSERT ADDRESS OF DATA AREA 
D 1 MOVL Res [SAVE ADDRESS OF USER BUFFER 
DA 81 JmP CrEXE QIODRVPKT TQUEUE DRIVER PACKET 
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0$: POPR Pa Fit. 
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SET NORMAL COMPLETION STATUS 
sFINISH 1/0 


sRETRIEVE 1/0 PAC ae ADDRESS 
[ABORT 1/0 OPERATI 
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8 10$: MOVW  IRPSL_MED 
MOVL 
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+H 20$:  MOVL @IRPSL SVAPTE(R3) 5 CBSL ~SYAPTE (RS) ; 
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= .SBTTL START 1/0 OPERATION ON CR11 CARD READER 
; CRSTARTIO = START 1/0 OPERATION ON CR11 CARD READER 


: THIS ROUTINE IS ENTERED WHEN THE ASSOCIATED UNIT IS IDLE AND A PACKET IS 
; AVAILABLE FOR PROCESSING. 
> INPUTS: 
: R3 = ADDRESS OF 1/0 REQUEST PACKET. 
: R5 = ADDRESS OF DEVICE UNIT UCB. 
: OUTPUTS: 
; CARD MOTION IS STARTED BY SETTING THE APPROPRIATE FUNCTION BITS IN THE 
; CONTROL STATUS REGISTER. AS EACH COLUMN INTERRUPT OCCURS. THE DATA FROM 
; THE DATA BUFFER REGISTER(S) 1S STORED IN THE GUFFER ALLOCATED 8 THE 
: FDOT ROUTINE. WHEN ALL 80 COLUMNS HAVE BEEN READ, A FORK PROCESS. 1S CREAT 
; ED, THE COLUMN DATA IS CONVERTED ACCORDING TO THE I/O FUNCTION CODE, A 
; REQUEST COMPLETE IS CALLED FOR POST PROCESSING. 
CR_STARTIO :START 1/0 OPERATION 
CHPZV #inesy FCODE ,#IRPSS_FCODE,- ;SET MODE FUNCTION? 
we, W_FUNC(RS) ,#10$-S SETOBE j 
CMPZV #inpsy FCODE ,#IRPSS_FCODE,- ;SET CHARACTERISTICS FUNCTION? 
$w_FUNC(RS) ,#IOS"SETCHAR : 
BNEQ ge s1F NEQ NO 


SET READER CHARACTERISTICS 


MOV’ IRPSL_MEDIA(R3) ,UCBSB_DEVCLASS(R5) SET DEVICE CLASS AND TYPE 


0 | SET READER MODE 


FAULT BUFFER SIZE 


2(R3) ,UCBSW_DEVBUFSIZ(R5) ; E 
E : EVICE DEPENDENT FLAGS 


lA+ 
RPSL_MEDIA+4(R3) -UCBSL— _—— ND(R5) 
BRW 408 ~ 


B77; 
#43 ; SET UP PARAMETERS AND READ CARD 


;SET ADDRESS OF BUFFER 

MOVE CBSB_CR_EOF CNC ie shi D OF FILE COUNT FOR ASCII 

BBC A V BINARY IRPSW 4 cR $ :1F CLR ASCII READ 

MOVB CBSB_CR_EOFCNTTRS) sete END’ OF Fite COUNT FOR BINARY 
308 ®0VB ucé ch OFCNT(RS) yee R_EOFCOL(RS) ;SET REQUIRED NUMBER 

MNEGB 4#1,UCB$B7CR COL CNT (A ) Set INITIAL COLUMN COUNT 

CLRB =—-: UC B$B_CR™OF CWT (RS) 3SET INITIAL OFFLINE COUNT 

MOVL ucBst °C CRECR aft ADDRESS OF CRB 

MOVL acresc_ INTDeVECSL_ ipecres Re :GET DEVICE CSR ADDRESS 
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CRORIVER = CR11 CARD READER DRIVER “SEP=1 :4 X/VMS Macro v04-00 Pp 19 
FOen OOS START 1/0 OPERATION ON CR11 CARD READER "78 P=] 138¢ 88; 9 9 YOR DRIVER. SRCICRDRIVER.MAR:1 (1) 
3f 6890 40S:  DSBINT SABLE INTERRUPTS 
64 0100 er Hy 45 39 Bitw R_CSR_M_OFFLIN,CR_ csrche) READER OFFLINE? 
4A 3 BEQL , $s iF far NO 
46 9 WFIKPCH 50$,#2 el FOR TIMEOUT 
94 1OF ORK SCREATE FORK PROCESS 
—1 (11 C %6 BRB 408 ; 
9? ; 
98 ; READER TIME OUT OR DEVICE ERROR 
64 40 8F 9% 1 50S: mov7BM #CR_CSR_M_IE,CR_CSR(R4) ;CLEAR READER ERRORS 
6 ; SETIPL uces (R ;LOWER TO DEVICE FORK LEVEL 
9s £0 66 9 BS rsh _ CANCEL ucasu stsch ) 608 IF SET, CANCEL 1/0 REQUESTED 
FFCC 0093 2% of 904 ACBB $6 fh, T(R5),40$ ;:1F SET, NOT TIME FOR MESSAGE 
94 905 CLRB e566, tno 7CLEAR OFFLINE COUNT 
BB 77. 9 6 PUSHR SSAVE REGISTERS 
54 08 A 0379 90 MOVZBL onccs aa R4 SSET DEVICE MESSAGE NUMBER 
53 00000000'G % 44 308 MOVAB G*SYSSGL_OPRMBX,R3 GET ADDRESS OF OPERATOR MAILBOX 
§0000000" GF 1 JSB pagtiaesese [SEND MESSAGE TO OPERATOR 
18 BA 9 910 POPR SRESTORE REGISTERS 
B2 11 911 BRB : 
eet 
gp gig > CANCEL CURRENT READ REQUEST 
D 916° 
50 2 3 319 60$:  MOVZWL #$S$_ABORT ,RO :SET ABORT STATUS 
OOF 1 3 gig BRW 150$ ; 
4 3 9 t DATA OVERFLOW (MORE THAN 80 COL) DETECTED 
93 922° 
64 40 8F 9% 4 ; § 65$: mov7Buy WCR_CSR_M_IE,CR_CSR(R4) ; INHIBIT READS 
0082 C5 6 9D 925 INCW UCBSW_ERRCNT(RS) t INCREMENT HARDWARE ERROR COUNT 
50 0054 8F *¢ Al % $ MOVZUL #358. CTRLERA,RO sRETURN HARDWARE ERROR STATUS 
oopp = 31 A 3 BRW : 
AQ 929; 
a9 9 0 + INITIATE READ 
9 982° 
02 AG 85 a9 g i 70$: STW  CR_CRBI(R4) “CLEAR COLUMN BUFFER 
4 af AC 3 4 mOV7BW ach CSR le! 'CR_CSR_M READ, = SENABLE INTERRUPTS AND START READ 
0 936 80S: WF IKPCH 208. a3 ;VALTFOR INTERRUPT OR TIMEOUT 
64 C000 BF 8 A 9 BlTw @#CR-CSR_M_CRDONE!CR_CSR_M_ERROR,CR_CSR(R4) ;CARD DONE OR ERROR? 
4A fF 9 $ BNEQ 1208 TF NEQ YES 
51 206 B C1 mOVW CR_CRBI(R4),R1 AEADY BINARY COLUMN 
2 AG C3 40 mOvw 8 =s CRC RBZ(RG) *R2 TREAD PACKED COLUMN 
C 41 INCB neem _COLCNT(RS) s INCREMENT COLUMN COUNT 
1 CD 34g BNEQ Z1F NEQ NOT FIRST COLUMN 
£5 f CF 894 MOVW dates CBSW_CR_FSTCOL(RS) :SAVE FIRST COLUMN BINARY DATA 
0090 08 2 ¢5 D4 944 908 CMPB CRoE roma ),UCBSB_CR_COLCNT(RS) ;PAST END OF FILE DATA? 
Og 15 0308 945 BLEQ :TF CEQ YES 
51 OFor BF 61 O3DD 946 CHPw MCR EOF LR TEND OF FILE PUNCH? 


CRORIVER = CR11 CARD READER DRIVER SEP-1984 /VMS Macro V04-00 Page 20 
vr ht START 1/0 OPERATION ON CR11 CARD READER i P=1984 t §3: $f: 3 YORI RIVER. SRCICRORIVER.MAR; 1 e 
04 3 E? 7 BNEQ 1008, z1F NEQ NO 
0091 ¢ 3 E 48 DECB $8_CR_EOFCNT(RS) [DECREMENT END OF FILE COUNT 
0099 C5 0 +! +. $e 49 100$: ys ,-UCBSB_CR_COLCNT (RS) DATA OVERFLOW (MORE THAN 80 COL) ? 
788 99 Ff ? MOVE Re @ucBSL SVAPTE (RS) stone PACKED COLUMN 
07 é A E 4 ; BBC ta IRP$W_FUNC(R3),110$ :IF CLR, ASCII READ 
B 0 O3F9 MOV PTE (RS) ;STORE BINARY COLUMN 
78 a3 D6 O3F rs INCL uc (nd) : UPDATE BUFFER ADDRESS 
78 aS 6 § 1108: INCL uCBst BVAPTECR ) SUPDATE BUFFER ADDRESS 
6 DSBINT [DISABLE INTERRUPTS 
AS) 11 9 80% : 
t08 888 
4 960 :; SPECIAL CONDITION 
4 +d : 
0096 (5 64 80 a8 308 1208: MOVW CR_CSR(R4),UCBSW_CR CSRCRS) : SAVE READER STATUS 
64 40 &F 10 964 MOVZBW #CR_CSR_M_IE,CR_CSRTR4) ;CLEAR READER ERRORS 
414 965 1OF ORK [CREATE FORK PROCESS 
50 0870 BF 3 1A MOVZWL #SS$_ENDOFFILE,RO TASSUME END OF FILE ENCOUNTERED 
0091 C5 95 if 967 ist $6_CR_EOF CNT (RS) END OF Fite? 
50 0838 SF 3 3 969 MOVZWL #SS$_DATAOVERUN,RO TASSUME TIMING ERROR 
51 cs 3C A 970 MOVZWL ucesa¢ ROCSR(RSS RI :GET READER STATUS 
5351 0B €06 F971 BBS CS ROT IMERR,R1,150$ :1F SET, TIMING ERROR = EXIT 
65 51 OC £0 ; a7 BBS ocr “ERR “VIMCHECK.R1,180$ ;1F SET, MOTION CHECK = RETRY 
7 97% lees NOTE: SINCE HOPPER CHECK SETS ERROR, A READ CHECK IS NOT DETECTABLE 
4 , 979 see IF HOPPER CHECK IS ALSO SET, IE. NO READ CHECK RETRIES ON LAST CARD 
94 51 op EO 7 338 ' BBS #@CR_CSR_V_HCHECK,R1,125$ ;1F SET, HOPPER CHECK - OK 
> 51 OF €0 ; 978 one BBS #CRICSR-V~ERROR,R1,180$ :1F SET, READ CHECK = RETRY 
20 a3 —- 00C0 . 83 43F 3 0 ; gitw #10SM_BINARY! 1OSM_PACKED, + TRPSY FUNC(RS) ; sBINARY OR PACKED READ? 
0094 C5  OAAA i 8} ct? 3 : CAP #CR_029,UCB$W_CR -rstcouckd> ) j CHANGE MODE TO 029 TRANSLATION? 
0094 CS O0BA2 ' 8} i 3 4 cna Ff agree. -UCBSW_CR soendt i j CHANGE MODE TO 026 TRANSLATION? 
50 FeDB CF 9 9 9 6 MOVAB : ADDRESS OF 029 TRANSLATION TABLE 
04 09 ED 5 9 CMPZV PCRSV. Toe ee ACRSS is TRANSLATION MODE? 
01 44 A’ me 461 4 8 ah $L “DEVDEPENDERS)” moc t wate 
50 FCCE cf 9 466 99 ons ROVAB ch. Cv1026,R0 ate tA. OF - 026 TRANSLATION TABLE 
1 99 "MOV @IRPSL_SVAPTE(R3).R1 ADDRESS oF 70 BUFFER 
32.03 60 00 i §§ bP ff 398 ROviC oreo “BCNT(R3), (RI) #0, ck 5 T Apeu -BCNT(R3),(R1) ; TRANSLATE 
ss ERO 7A 994 POPL RS ZRETRIEVE ADDRESS OF UCB 
50 10 10 0, RS 6 2 Oras BeNTiAS), #16,816, he tomas COMPLET ION, COUNT 
514 1508: CLRL ai 7CLEAR SECOND 1/0 LONGWORD 


COMPLETE REQUEST 


mn 
——— 
— 


SET G29 TRANSLATION MODE 


200000000 GD GD Sy 
MMODOOoVo 
aoe 
mm ze 
onmuv 
Ss < 


are 


a 3 
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START 1/0 OPERATION ON CR11 CARD READER ante 7 85:79 .98 LORIVER. SR SRCICRDRIVER.MAR: 1 (1) 
1003 
Q FO cbt 1004 1608: INSV —ACREK_1029,#CRSV_TMODE.- ;SET 029 TRANSLATION MODE 
64 A 491 1005 ce $S"TMODE ,UCBSC_DEVDEPEND(RS) ; 
11 04696 1 6 BRB 180$ ~ ; 
4696 1 
496 1 8 
496 1009 : SET 026 TRANSLATION MODE 
a3 10 
90 FO 496 1 1g 170$: INSV #CRSK_1026,#CRSV_TMODE,- ;SET 026 TRANSLATION MODE 
44 A 04 499 101 #CRSS-TMODE ,UCBSC_ DEVDEPEND (RS) ; 
FE74 31 049C 1014 180$: BRwW 208 


CRORIVER CARD E 
or CRIT CARD READER IN 


n 3 
READER DRIVER 15*SEP=1984 23:42: AX/VMS Macro v04-00 Page 22 
EADER INTDERRUPTS aes et 857998 DRIVER. SRCICRORIVER. maR:1 4) 
49F 1g ; ~SBTTL CR11 CARD READER INTDERRUPTS 
49F 18 t CRSINT = CR11 CARD READER INTERRUPTS 
49F 1 p : THI ROUTINE IS ENTERED VIA A JSB INSTRUCTION WHEN AN INTERRUPT OCCURS ON A 
a9t : CR11 CARD READER CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: 
49F 1 ; : O(SP) = ADDRESS OF IDB B ADDRESS. 
49F 1026 ; 4(SP) = 24(SP) = SAVED 
49F 1025 : (SP) = INTERRUPT 
49F 6 : (SP) = INTERRUPT PSL. 
49F § : INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
49F 19 0; IF THE INTERRUPT IS EXPECTED THE DRIVER IS CALLED AT ITS 
49F 1031 : INTERRUPT RETURN ADDRESS (UCBSL_FPC). IF THE INTERRUPT IS 
49F 1 $ ; NOT EXPECTED AND THE DEVICE 1S € ROT ALLOCATED, A MESSAGE IS 
49F 1033 : SENT TO THE JOB CONTROLLER TO INFORM IT THAT AN INPUT 
“gt i ‘ ; SYMBIONT PROCESS SHOULD BE CREATED TO READ THE CARDS. 
49F 1 . 
49F 19 $ CRSINT:: ;CARD READER INTERRUPT 
53 3 0 O49F 1 : MOVL  a(SP)+ 'GET ADDRESS OF IDB 
54 C6 D O4A 105 MOVG _—IDB$L etacr GET CONTROLLER CSR AND OWNER UCB ADDRESS 
1164 AS 01 €5 O45 1040 BBCC #UCBSV_INT aycesu. STS(RS).1 LR, INTERRUPT NOT EXPECTED 
53 10 AS 00 O4AA 1041 MOVL UCB SL FR FR3(R :RESTORE REMAINING DRIVER CONTEXT 
0C BS 16 O4AE 104¢ JSB aucB C_FPC( CtRss SCALL DRIVER 
50 B8& 7D 0481 104 MOVa = (SP) +, RO RESTORE REGISTERS 
52 BE) 07D «(04B4 «(1044 MOVQ  (SP)+.R2 : 
54S OBE z 487 45 nova (SP) +.R4 
4BB 1 23 . 
488 1 48 : 
tka8 1069 t UNSOLICITED INTERRUPT 
488 1051 ° 
4 3C 0488 105¢ 10$:  MOVZWL CR CSR«R4) RO GET READER STATUS 
64 ° 40 BF 4B 105 MOVZBW #CR_CSR_M_IE,CR CSRCR4) :CLEAR STATUS, ENABLE INTERRUPTS 
50 0400 8F 8B sce 1054 BITw aCRe tte “" “ONLINE ,R READER TRANSITION TO ONLINE? 
C 13 04¢? 1055 BEQL 208" SIF EQL NO 
5¢ AS & cg 36 sty UCBs. REFC(RS) ‘sevice E ASSIGNED OR ALLOCATED? 
02 68 AS) 00 3 4CE 1058 BBSS sycesv, JOB, UCBSW_ aise Mos -IF SET, MESSAGE PALREADY SENT 
4% D8 1059 BSBBOté30 sSEND MESSAGE TO JOB CONTROLLER 
50 : 2p 403 60 20S: mova (SP)* RQ TRESTORE REGISTERS 
¢ —E 7D “be 6¢ nova (SP)+.R4 
0000 "GE 98 4DF 1064 30$: JSB G*EXESFORK SCREATE FORK PROCESS 
4 02 9A O4ES 1065 MOVZBL asc CRUNSOL IC. RG [SET MESSAGE TYPE 
53 Q00000000'GF 9E 04E8 106 MOVAB SYSSGL CILAB.R3 [SET ADDRESS OF JOB CONTROLLER MAILBOX 
00 000° GF 16 O4EF 106 JSB Gee Hora ;SENT MESSAGE TO JOB CONTROLLER 
0450 € 4F5 106 BBS sé lt LBS SUCCESSFUL NOTIFICATION 
68 AS) (01) AAsC04FB 6 BICW SUCBSA. JOB ,UCBSW_ DEVSTS(R ) ;CLEAR MESSAGE SENT BIT 
05 O4FC 1070 40$: RSB ; 


m 
may 
Do 


64 40 BF 
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~SBTTL CARD READER INITIALIZATION 


+ 
; ; CR. INITIAL = CR11 CARD READER INITIALIZATION 


: THIS ROUTINE IS gALLe® AT SYSTEM Ahly 4 AND AFTER A POWER FAILURE. THE CSR 
RESPECTIVE CR11 CONTROLLER IS READ TO INSURE ITS PRESENCE ON 
; THE UBA AND THEN CARD READER INTERRUPTS ARE ENABLED. 


: INPUTS: 


RG = CR11 CONTROLL “Oy CSR ADDRESS. 
RS = IDB ADDRESS OF DEVICE UNIT. 
; OUTPUTS: 


ALL REGISTERS ARE PRESERVED. 


:¢ 
— MCR_CSR_M_LIE,CR_CSR(R4) ; 


poe 


7 
bat 


a 
; 
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CARD READER UNIT INITIALIZATION SEE SBe Ba1F:88 FORIVES Bacto ttt Oe nans1 (Page 28, 
9% oS ~SBTTL CARD READER UNIT INITIALIZATION 
36 3 CR_CR11_INIT = CARD READER UNIT INITIALIZATION 
502 1 38 : THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 
3 99 ; ONLINE BIT IS SET IN THE DEVICE UCB. 
3 1 1: INPUTS: 
3 i ; RS = ADDRESS OF DEVICE UCB. 
; 1 5 : OUTPUTS: 
11 5 ; THE ONLINE BIT IS SET IN THE DEVICE UCB AND THE ADDRESS OF THE UCB 
0502 11 § ; IS FILLED INTO THE OWNER FIELD OF THE IDB. 
265 4190 * 
502 1111 CR_CR11_INIT: RD READER UNIT INITIALIZATION 
64 45 10 a8 050 Wig BISW #UCBSM ONLINE. UCBSW_ stsch$) 3SET UNIT ONLINE 
50 24 a5 00 0506 111 MOVL UCB$i_CRB(RS),R "A RESS oF wcR 
50 2C AQ DO 050A 1114 MOVL CRBSL-INTD+VECS$L_IDB(RO).RO ;GET ADDRESS OF IDB 
04 a0. 55 b0 950 1115 MOVL RS, IDBSL_OWNER (RO) SET ADDRESS OF DEVICE UCB 
O51 1117 CR_END: TADDRESS OF LAST LOCATION IN DRIVER 
0513 1119 END 
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Symbol table DRIVER SRE 5¢RD RIVER.MAR; 1 
UCBSB_DEVTYPE = 41 
UCBSB_DIPL = E 
UCBSB_F IPL = 
UCBSK_CR_LENGTH s 
UCBSK-LERGTH = 
uCBSL~ “tk 2 4 
UCBSL_DEV a = 8 
UCBSL_DEVCHAR2 = ¢ 
uCBSL_ =PEVDEPEND = 44 
UCBSL_F 49 = 0 
UCBSL_FR s 1 
UCBSL_SVAPTE = 7 
UCBSA_ JOB = 01 
UCBSM_ONL I = 9 
UCBSV_ CANCEL = 
UCBSV_INT s 1 
UCBS$V_ JOB = 000 0 
UCBSW_BCNT = 0000007E 
UCBSW_CR_CS 000 44 
UCBSW_CR_FSTCOL 4 94 
UCBSW_DEVBUF SIZ = 0000004 
UCBSW_DEVST = i444 
CBSW_ERRCNT = 00 44 
UCBSW_REFC = 000 38 C 
UCBSW_STS = 388 064 
ECSL_108 = 00000008 
VECSL_INITIAL = 44-4 465 
ECSL_UNITINIT = 0000001 
Pen wonme sons oonmme 
! ;_Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
- ABS. 90000000 < ») 00 ¢ O.) NOPIC USR CON ABS~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 944 44 84 ( 152.) 1 ¢ NOP IC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE 0000077 ¢ 119.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115"DRIVER 0000513 (¢ 1299.) ( -) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
Fern eee tres terme omeonram ene e + 
! Performance indicators H 
ce tactician ttle le ine 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 :00:00.09 1.38 
ronnens processing } ¢ :00: “on 1s 202.79 ‘sr 
Syabo table sort :00: ai 00:10. 
7 209 :00:05.35 00:12. § 
wT table output 17 :00:00.1 :00:01.04 
Psect synopsis output 00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 90 . :01:58.6 


The working set Limit was 1800 pages. 
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CRORIVER = CR11 CARD READER DRIVER 15-SEP-1 74 AX/VMS Mi v04-00 Pa 7 Cyt 
vaRett Recro Run Statistics g: Ep 198¢ 89; 19 83 LORIVER. SR SRE §cRD DRIVER.MAR; 1 ni 4) v0é 
ye55et bytes. ¢ (246 pages) of virtual memory were used te buffer the intermediate Sade. 
There were 110 pages of symbol table 4 *Pace ducing? 18 08 hold 2141 non-local and local symbols. 
1119 source Lines were read in Pass 1, prod object records in Pass 2. 
| 
i 


36 pages of virtual memory were used to def a 3 macros. 


swmoeeeceeoeoeeoocoooocoaeeoeos> 


! Macro Library statistics ! 


$emcwmananecnasaaaeeeenrsranr cena a + 


Macro library name Macros defined 


5 SYS.OBJILI 0 
$522$5y 58: SyScPexat AR + Sale: 32 # 
Toracs (all Libraries) 31 
2388 GETS were required to define 31 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:CRORIVER/OBJ=0BJ$:CRDRIVER MSRC$:CRDRIVER/UPDATE=(ENHS: CRDORIVER) *EXECMLS/LIB 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


010 


